home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_gen
/
t4diblib.zip
/
VIEWLIB1.F3_
/
VIEWLIB1.F3
Wrap
Text File
|
1995-11-14
|
2KB
|
69 lines
VERSION 2.00
Begin Form Form1
Caption = "VIEWLIB1"
ClientHeight = 2004
ClientLeft = 2388
ClientTop = 2244
ClientWidth = 4188
Height = 2424
Left = 2340
LinkTopic = "Form1"
ScaleHeight = 2004
ScaleWidth = 4188
Top = 1872
Width = 4284
Begin CommandButton Command1
Caption = "Quit"
Height = 372
Left = 2280
TabIndex = 1
Top = 1440
Width = 972
End
Begin T4DILIB dilib1
Caption = "dilib1"
ControlMode = 0 'Lib -> PIC
Height = 372
Left = 3360
Top = 1440
Visible = 0 'False
Width = 732
End
Begin ListBox List1
Height = 1176
Left = 2280
TabIndex = 0
Top = 120
Width = 1812
End
End
Option Explicit
Sub Command1_Click ()
End
End Sub
Sub Form_Load ()
Dim myctr%
'Center the form.
Top = (screen.Height - Height) / 2!
Left = (screen.Width - Width) / 2!
'Set our DIB library name and open it.
dilib1.LibraryName = "bluespin.ilb"
dilib1.Action = IM_ACTION_OPENLIBRARY
'Fill the list box with member numbers.
For myctr = 1 To dilib1.MemberCount
dilib1.MemberNumber = myctr
list1.AddItem "[" + Trim$(Str$(myctr)) + "]"
Next myctr
End Sub
Sub List1_Click ()
'Add 1 to ListIndex for Base-1.
dilib1.MemberNumber = list1.ListIndex + 1
'Load and display the image.
dilib1.Action = IM_ACTION_GETMEMBER
Picture = dilib1.Picture
End Sub